home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / lst.base'conv < prev    next >
Text File  |  2007-02-28  |  887b  |  32 lines
  1. 0010 //
  2. 0020 ╨╥╧├ BASE'CONV(DCML,BASE,╥┼╞ OUTPT$) ├╠╧╙┼─
  3. 0030   ╔═╨╧╥╘ MAX
  4. 0040   ─╔═ DIGIT$ ╧╞ 16
  5. 0050   DIGIT$:="0123456789ABCDEF"
  6. 0060   ╔╞ DCML ╘╚┼╬
  7. 0070     ╔╞ DCML>0 ╘╚┼╬
  8. 0080       OUTPT$:=""
  9. 0090     ┼╠╙┼ 
  10. 0100       OUTPT$:="-"
  11. 0110     ┼╬─╔╞ 
  12. 0120     REMNDR:=┴┬╙(DCML)
  13. 0130     LB#:=╔╬╘(╠╧╟(REMNDR)/╠╧╟(BASE))
  14. 0140     DVSR:=MAX(BASE^LB#,.1)
  15. 0150     ╫╚╔╠┼ DVSR>=1 ─╧
  16. 0160       DIGT:=╔╬╘(REMNDR/DVSR+1E-05)
  17. 0170       OUTPT$:=OUTPT$+DIGIT$(DIGT+1:DIGT+1)
  18. 0180       REMNDR:=REMNDR-DVSR*╔╬╘(DIGT)
  19. 0190       DVSR:=DVSR/BASE
  20. 0200     ┼╬─╫╚╔╠┼ 
  21. 0210     ╔╞ REMNDR ╘╚┼╬ OUTPT$:=OUTPT$+"."
  22. 0220     ╫╚╔╠┼ REMNDR>0 ┴╬─ DVSR>0 ─╧
  23. 0230       DIGT:=╔╬╘(REMNDR/DVSR+1E-05)
  24. 0240       OUTPT$:=OUTPT$+DIGIT$(DIGT+1:DIGT+1)
  25. 0250       REMNDR:=REMNDR-DVSR*╔╬╘(DIGT)
  26. 0260       DVSR:=DVSR/BASE
  27. 0270     ┼╬─╫╚╔╠┼ 
  28. 0280   ┼╠╙┼ 
  29. 0290     OUTPT$:=DIGIT$(1)
  30. 0300   ┼╬─╔╞ 
  31. 0310 ┼╬─╨╥╧├ BASE'CONV
  32.